DEFINE CLASS cl_donacion as Custom

	anulada=0
	concepto=""
	cuit_cuil=0
	direccion=""
	id_cuenta=0
	id_talonario=0
	monto=0.0
	nro_comprobante=0
	razon_social=""
	fecha=DATE()
	
PROCEDURE getanulada
RETURN this.anulada
ENDPROC

PROCEDURE setanulada
LPARAMETERS nuevo
this.anulada=nuevo
ENDPROC

PROCEDURE getconcepto
RETURN this.concepto
ENDPROC

PROCEDURE setconcepto
LPARAMETERS nuevo
this.concepto=nuevo
ENDPROC

PROCEDURE getcuit_cuil
RETURN this.cuit_cuil
ENDPROC

PROCEDURE setcuit_cuil
LPARAMETERS nuevo
this.cuit_cuil=nuevo

PROCEDURE getdireccion
RETURN this.direccion
ENDPROC

PROCEDURE setdireccion
LPARAMETERS nuevo
this.direccion=nuevo
ENDPROC

PROCEDURE getid_cuenta
RETURN this.id_cuenta
ENDPROC

PROCEDURE setid_cuenta
LPARAMETERS nuevo
this.id_cuenta=nuevo
ENDPROC

PROCEDURE getid_talonario
RETURN this.id_talonario
ENDPROC

PROCEDURE setid_talonario
LPARAMETERS nuevo
this.id_talonario=nuevo
ENDPROC

PROCEDURE getmonto
RETURN this.monto
ENDPROC

PROCEDURE setmonto
LPARAMETERS nuevo
this.monto=nuevo
ENDPROC

PROCEDURE getrazon_social
RETURN this.razon_social
ENDPROC

PROCEDURE setrazon_social
LPARAMETERS nuevo
this.razon_social=nuevo
ENDPROC

PROCEDURE getnro_comprobante
RETURN this.nro_comprobante
ENDPROC

PROCEDURE setnro_comprobante
LPARAMETERS nuevo
this.nro_comprobante=nuevo
ENDPROC

PROCEDURE registraDonacion
USE data1/donacion
INSERT INTO donacion (anulada,concepto,cuit_cuil,direccion,id_cuenta,id_talonario,monto,nro_comprobante,razon_social,fecha) VALUES (this.anulada,this.concepto,this.cuit_cuil,this.direccion,this.id_cuenta,this.id_talonario,this.monto,this.nro_comprobante,this.razon_social,this.fecha)
USE IN donacion
ENDPROC

PROCEDURE obtienedonacion
USE data1/donacion
SELECT * FROM donacion WHERE id_talonario=this.id_talonario AND nro_comprobante=this.nro_comprobante INTO CURSOR cur
this.anulada=cur.anulada
this.concepto=cur.concepto
this.cuit_cuil=cur.cuit_cuil
this.direccion=cur.direccion
this.id_cuenta=cur.id_cuenta
this.monto=cur.monto
this.razon_social=cur.razon_social
USE IN donacion
ENDPROC

PROCEDURE anular_donacion
LPARAMETERS nrocom,anul
USE data1/donacion
UPDATE donacion SET anulada=anul WHERE nro_comprobante= nrocom
USE IN donacion 
ENDPROC

ENDDEFINE